Public Class AttributeCleanupResult
    Inherits AttributeCleanupSet

    Protected _NumberFound As Integer
    Protected _NumberCleaned As Integer

    Public Sub New(ByVal BaseAttributeCleanupSet As AttributeCleanupSet)

        With BaseAttributeCleanupSet
            Me._AttributeName = .AttributeName
            Me._CurrentValue = .CurrentValue
            Me._NewValue = .NewValue
        End With

    End Sub

    Public Property NumberFound() As Integer
        Get
            Return _NumberFound
        End Get
        Set(ByVal value As Integer)
            _NumberFound = value
        End Set
    End Property

    Public Property NumberCleaned() As Integer
        Get
            Return _NumberCleaned
        End Get
        Set(ByVal value As Integer)
            _NumberCleaned = value
        End Set
    End Property
End Class
